home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Camelot
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf
/
XLisp-Stat
/
Examples
/
fstat.lsp
< prev
next >
Wrap
Lisp/Scheme
|
1990-10-11
|
295b
|
11 lines
(defun f-statistic (m1 m2)
"
Args: (m1 m2)
Computes the F statistic for testing model m1 within model m2."
(let ((ss1 (send m1 :sum-of-squares))
(df1 (send m1 :df))
(ss2 (send m2 :sum-of-squares))
(df2 (send m2 :df)))
(/ (/ (- ss1 ss2) (- df1 df2)) (/ ss2 df2))))